il gioco del Kamasutra/Milo Manara Kamasutra.iso/mac/DATA/ParteIII/GameIII/Arco.dir/00020_Script_20

Text File | 1997-11-23 | 4KB | 151 lines

on mouseDown
  PuppetSprite 14, true
  repeat while the stillDown
    set the membernum of sprite 14 = 33
    updatestage
  end repeat
end

on mouseUp

  Global IndexTug, IndexLulu, Tug1, Tug2, Tug3, Tug4, Tug5, Tug6, Tug7, Tug8, Tug9, Tug10, Tug11, Tug12, Tug13, Tug14, Tug15, Tug16, Tug17, Tug18, Tug19, Tug20

  set the membernum of sprite 14 = 26
  updatestage

  if IndexLulu = 1 then
    if IndexTug = 5 then
      set Tug5 = 1
      go to string(Tug5*1)  of movie "Lulu1"
    else
      go to string(Tug5*1)  of movie "Lulu1"
    end if
  end if

  if IndexLulu = 2 then
    if IndexTug = 10 then
      set Tug10 = 1
      go to string(Tug10*1)  of movie "Lulu2"
    else
      go to string(Tug10*1)  of movie "Lulu2"
    end if
  end if

  if IndexLulu = 3 then
    if IndexTug = 8 then
      set Tug8 = 1
      go to string(Tug8*1)  of movie "Lulu3"
    else
      go to string(Tug8*1)  of movie "Lulu3"
    end if
  end if

  if IndexLulu = 4 then
    if IndexTug = 17 then
      set Tug17 = 1
      go to string(Tug17*1)  of movie "Lulu4"
    else
      go to string(Tug17*1)  of movie "Lulu4"
    end if
  end if

  if IndexLulu = 5 then
    if IndexTug = 1 or IndexTug = 12  then
      case indexTug of
        "1" : set Tug1 = 1
        "12" : set Tug12 =1
      end case
      go to string((Tug12*2) + (Tug1*1 ))  of movie "Lulu5"
    else
      go to string((Tug12*2) + (Tug1*1 )) of movie "Lulu5"
    end if
  end if

  if IndexLulu = 6 then
    if IndexTug = 3 or IndexTug = 20  then
      case indexTug of
        "3" : set Tug3 = 1
        "20" : set Tug20 =1
      end case
      go to string((Tug20*2) + (Tug3*1 ))  of movie "Lulu6"
    else
      go to string((Tug20*2) + (Tug3*1 )) of movie "Lulu6"
    end if
  end if

  if IndexLulu = 7 then
    if IndexTug = 18 then
      set Tug18 = 1
      go to string(Tug18*1)  of movie "Lulu7"
    else
      go to string(Tug18*1)  of movie "Lulu7"
    end if
  end if

  if IndexLulu = 8 then
    if IndexTug = 2 then
      set Tug2 = 1
      go to string(Tug2*1)  of movie "Lulu8"
    else
      go to string(Tug2*1)  of movie "Lulu8"
    end if
  end if

  if IndexLulu = 9 then
    if IndexTug = 6 or IndexTug = 14  then
      case indexTug of
        "6" : set Tug6 = 1
        "14" : set Tug14 =1
      end case
      go to string((Tug14*2) + (Tug6*1 ))  of movie "Lulu9"
    else
      go to string((Tug14*2) + (Tug6*1 )) of movie "Lulu9"
    end if
  end if

  if IndexLulu = 10 then
    if IndexTug = 11 or IndexTug = 15  then
      case indexTug of
        "11" : set Tug11 = 1
        "15" : set Tug15 =1
      end case
      go to string((Tug15*2) + (Tug11*1 ))  of movie "Lulu10"
    else
      go to string((Tug15*2) + (Tug11*1 )) of movie "Lulu10"
    end if
  end if

  if IndexLulu = 11 then
    if IndexTug = 13 then
      set Tug13 = 1
      go to string(Tug13*1)  of movie "Lulu11"
    else
      go to string(Tug13*1)  of movie "Lulu11"
    end if
  end if

  If IndexLulu = 12 then
    go to movie "Lulu12"
  end if

  if IndexLulu = 13 then
    go to movie "Lulu13"
  end if

  if IndexLulu = 14 then
    if IndexTug = 19 or IndexTug = 16 or IndexTug = 9 or IndexTug = 7 or IndexTug = 4 then
      case indexTug of
        "19" : set Tug19 = 1
        "16" : set Tug16 = 1
        "9" : set Tug9 = 1
        "7" : set Tug7 = 1
        "4" : set Tug4 = 1
      end case
      go to string((Tug19*16) + (Tug16*8) + (Tug9*4) + (Tug7*2) + (Tug4*1))  of movie "Lulu14"
    else
      go to string((Tug19*16) + (Tug16*8) + (Tug9*4) + (Tug7*2) + (Tug4*1))  of movie "Lulu14"
    end if
  end if

end mouseUp